/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / UserCode / createStuffItArchive.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 63 72 65 61 74 65 | 53 74 75 66 66 49 74 41 |..create|StuffItA|
|00000010| 72 63 68 69 76 65 2e 74 | 63 6c 00 00 00 00 00 00 |rchive.t|cl......|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 05 4e 00 | 00 01 7e a9 a2 a2 bd a9 |......N.|..~.....|
|00000060| a2 a2 bd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e6 77 00 00 |........|.....w..|
|00000080| 73 65 74 20 64 69 73 74 | 53 63 72 69 70 74 20 7b |set dist|Script {|
|00000090| 0d 4e 65 77 20 41 72 63 | 68 69 76 65 20 22 49 6e |.New Arc|hive "In|
|000000a0| 74 65 72 6e 61 6c 3a 44 | 65 73 6b 74 6f 70 20 46 |ternal:D|esktop F|
|000000b0| 6f 6c 64 65 72 3a 41 6c | 70 68 61 2e 35 2e 35 62 |older:Al|pha.5.5b|
|000000c0| 32 2e 73 65 61 22 0d 55 | 73 65 20 22 41 6c 70 68 |2.sea".U|se "Alph|
|000000d0| 61 20 35 2e 35 62 32 2e | 73 65 61 22 0d 53 74 75 |a 5.5b2.|sea".Stu|
|000000e0| 66 66 20 22 49 6e 74 65 | 72 6e 61 6c 3a 44 65 76 |ff "Inte|rnal:Dev|
|000000f0| 65 6c 6f 70 6d 65 6e 74 | 3a 41 6c 70 68 61 3a 41 |elopment|:Alpha:A|
|00000100| 6c 70 68 61 20 35 2e 35 | 62 32 22 20 63 6f 6d 70 |lpha 5.5|b2" comp|
|00000110| 72 65 73 73 20 0d 53 74 | 75 66 66 20 22 49 6e 74 |ress .St|uff "Int|
|00000120| 65 72 6e 61 6c 3a 44 65 | 76 65 6c 6f 70 6d 65 6e |ernal:De|velopmen|
|00000130| 74 3a 41 6c 70 68 61 3a | 43 68 61 6e 67 65 73 22 |t:Alpha:|Changes"|
|00000140| 20 63 6f 6d 70 72 65 73 | 73 20 0d 53 74 75 66 66 | compres|s .Stuff|
|00000150| 20 22 49 6e 74 65 72 6e | 61 6c 3a 44 65 76 65 6c | "Intern|al:Devel|
|00000160| 6f 70 6d 65 6e 74 3a 41 | 6c 70 68 61 3a 48 65 6c |opment:A|lpha:Hel|
|00000170| 70 3a 22 20 63 6f 6d 70 | 72 65 73 73 20 0d 53 74 |p:" comp|ress .St|
|00000180| 75 66 66 20 22 49 6e 74 | 65 72 6e 61 6c 3a 44 65 |uff "Int|ernal:De|
|00000190| 76 65 6c 6f 70 6d 65 6e | 74 3a 41 6c 70 68 61 3a |velopmen|t:Alpha:|
|000001a0| 52 45 41 44 4d 45 22 20 | 63 6f 6d 70 72 65 73 73 |README" |compress|
|000001b0| 20 0d 53 74 75 66 66 20 | 22 49 6e 74 65 72 6e 61 | .Stuff |"Interna|
|000001c0| 6c 3a 44 65 76 65 6c 6f | 70 6d 65 6e 74 3a 41 6c |l:Develo|pment:Al|
|000001d0| 70 68 61 3a 54 63 6c 3a | 22 20 63 6f 6d 70 72 65 |pha:Tcl:|" compre|
|000001e0| 73 73 20 0d 53 74 75 66 | 66 20 22 49 6e 74 65 72 |ss .Stuf|f "Inter|
|000001f0| 6e 61 6c 3a 44 65 76 65 | 6c 6f 70 6d 65 6e 74 3a |nal:Deve|lopment:|
|00000200| 41 6c 70 68 61 3a 78 74 | 63 6c 73 3a 22 20 63 6f |Alpha:xt|cls:" co|
|00000210| 6d 70 72 65 73 73 20 0d | 51 75 69 74 0d 7d 0d 0d |mpress .|Quit.}..|
|00000220| 73 65 74 20 62 61 63 6b | 75 70 53 63 72 69 70 74 |set back|upScript|
|00000230| 20 7b 0d 57 72 69 74 65 | 20 53 74 61 74 75 73 20 | {.Write| Status |
|00000240| 54 6f 20 0d 4e 65 77 20 | 41 72 63 68 69 76 65 20 |To .New |Archive |
|00000250| 22 45 78 74 65 72 6e 61 | 6c 3a 44 65 73 6b 74 6f |"Externa|l:Deskto|
|00000260| 70 20 46 6f 6c 64 65 72 | 3a 41 6c 70 68 61 2e 73 |p Folder|:Alpha.s|
|00000270| 6f 75 72 63 65 2e 35 2e | 33 2e 73 65 61 22 0d 55 |ource.5.|3.sea".U|
|00000280| 73 65 20 22 41 6c 70 68 | 61 2e 73 6f 75 72 63 65 |se "Alph|a.source|
|00000290| 2e 35 2e 33 2e 73 65 61 | 22 0d 53 74 75 66 66 20 |.5.3.sea|".Stuff |
|000002a0| 22 49 6e 74 65 72 6e 61 | 6c 3a 43 3a 41 6c 70 68 |"Interna|l:C:Alph|
|000002b0| 61 3a 41 6c 70 68 61 22 | 20 63 6f 6d 70 72 65 73 |a:Alpha"| compres|
|000002c0| 73 20 0d 53 74 75 66 66 | 20 22 49 6e 74 65 72 6e |s .Stuff| "Intern|
|000002d0| 61 6c 3a 43 3a 41 6c 70 | 68 61 3a 41 6c 70 68 61 |al:C:Alp|ha:Alpha|
|000002e0| 2e 72 73 72 63 22 20 63 | 6f 6d 70 72 65 73 73 20 |.rsrc" c|ompress |
|000002f0| 0d 53 74 75 66 66 20 22 | 49 6e 74 65 72 6e 61 6c |.Stuff "|Internal|
|00000300| 3a 43 3a 41 6c 70 68 61 | 3a 43 68 61 6e 67 65 73 |:C:Alpha|:Changes|
|00000310| 22 20 63 6f 6d 70 72 65 | 73 73 20 0d 53 74 75 66 |" compre|ss .Stuf|
|00000320| 66 20 22 49 6e 74 65 72 | 6e 61 6c 3a 43 3a 41 6c |f "Inter|nal:C:Al|
|00000330| 70 68 61 3a 48 65 6c 70 | 3a 22 20 63 6f 6d 70 72 |pha:Help|:" compr|
|00000340| 65 73 73 20 0d 53 74 75 | 66 66 20 22 49 6e 74 65 |ess .Stu|ff "Inte|
|00000350| 72 6e 61 6c 3a 43 3a 41 | 6c 70 68 61 3a 52 45 41 |rnal:C:A|lpha:REA|
|00000360| 44 4d 45 22 20 63 6f 6d | 70 72 65 73 73 20 0d 53 |DME" com|press .S|
|00000370| 74 75 66 66 20 22 49 6e | 74 65 72 6e 61 6c 3a 43 |tuff "In|ternal:C|
|00000380| 3a 41 6c 70 68 61 3a 54 | 63 6c 3a 22 20 63 6f 6d |:Alpha:T|cl:" com|
|00000390| 70 72 65 73 73 20 0d 53 | 74 75 66 66 20 22 49 6e |press .S|tuff "In|
|000003a0| 74 65 72 6e 61 6c 3a 43 | 3a 41 6c 70 68 61 3a 78 |ternal:C|:Alpha:x|
|000003b0| 74 63 6c 73 3a 22 20 63 | 6f 6d 70 72 65 73 73 20 |tcls:" c|ompress |
|000003c0| 0d 53 74 75 66 66 20 22 | 49 6e 74 65 72 6e 61 6c |.Stuff "|Internal|
|000003d0| 3a 43 3a 41 6c 70 68 61 | 3a 45 64 69 74 53 6f 75 |:C:Alpha|:EditSou|
|000003e0| 72 63 65 3a 22 20 63 6f | 6d 70 72 65 73 73 20 0d |rce:" co|mpress .|
|000003f0| 53 74 75 66 66 20 22 49 | 6e 74 65 72 6e 61 6c 3a |Stuff "I|nternal:|
|00000400| 43 3a 41 6c 70 68 61 3a | 54 63 6c 20 36 2e 32 3a |C:Alpha:|Tcl 6.2:|
|00000410| 22 20 63 6f 6d 70 72 65 | 73 73 20 0d 51 75 69 74 |" compre|ss .Quit|
|00000420| 0d 7d 0d 0d 70 72 6f 63 | 20 63 72 65 61 74 65 53 |.}..proc| createS|
|00000430| 74 75 66 66 69 74 41 72 | 63 68 69 76 65 20 7b 7d |tuffitAr|chive {}|
|00000440| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 64 69 73 74 53 | {..glob|al distS|
|00000450| 63 72 69 70 74 0d 09 73 | 65 6e 64 53 74 75 66 66 |cript..s|endStuff|
|00000460| 69 74 53 63 72 69 70 74 | 20 24 64 69 73 74 53 63 |itScript| $distSc|
|00000470| 72 69 70 74 0d 7d 0d 0d | 70 72 6f 63 20 62 61 63 |ript.}..|proc bac|
|00000480| 6b 75 70 53 6f 75 72 63 | 65 20 7b 7d 20 7b 0d 09 |kupSourc|e {} {..|
|00000490| 67 6c 6f 62 61 6c 20 62 | 61 63 6b 75 70 53 63 72 |global b|ackupScr|
|000004a0| 69 70 74 0d 09 73 65 6e | 64 53 74 75 66 66 69 74 |ipt..sen|dStuffit|
|000004b0| 53 63 72 69 70 74 20 24 | 62 61 63 6b 75 70 53 63 |Script $|backupSc|
|000004c0| 72 69 70 74 0d 7d 0d 0d | 70 72 6f 63 20 73 65 6e |ript.}..|proc sen|
|000004d0| 64 53 74 75 66 66 69 74 | 53 63 72 69 70 74 20 73 |dStuffit|Script s|
|000004e0| 63 72 69 70 74 20 7b 0d | 09 72 65 67 65 78 70 20 |cript {.|.regexp |
|000004f0| 7b 5b 30 2d 39 2e 5d 2b | 7d 20 5b 76 65 72 73 69 |{[0-9.]+|} [versi|
|00000500| 6f 6e 5d 20 76 65 72 73 | 0d 09 69 66 20 21 5b 72 |on] vers|..if ![r|
|00000510| 65 67 73 75 62 20 2d 61 | 6c 6c 20 7b 35 2e 5b 30 |egsub -a|ll {5.[0|
|00000520| 2d 39 5d 2b 7d 20 24 73 | 63 72 69 70 74 20 24 76 |-9]+} $s|cript $v|
|00000530| 65 72 73 20 6f 75 74 53 | 63 72 69 70 74 5d 20 7b |ers outS|cript] {|
|00000540| 0d 09 09 61 6c 65 72 74 | 6e 6f 74 65 20 22 53 63 |...alert|note "Sc|
|00000550| 72 69 70 74 20 73 75 62 | 73 74 69 74 75 74 69 6f |ript sub|stitutio|
|00000560| 6e 20 65 72 72 6f 72 22 | 0d 09 09 72 65 74 75 72 |n error"|...retur|
|00000570| 6e 0d 09 7d 0d 09 6c 61 | 75 6e 63 68 20 22 49 6e |n..}..la|unch "In|
|00000580| 74 65 72 6e 61 6c 3a 55 | 74 69 6c 73 3a 53 74 75 |ternal:U|tils:Stu|
|00000590| 66 66 49 74 20 44 65 6c | 75 78 65 aa 22 0d 09 64 |ffIt Del|uxe."..d|
|000005a0| 6f 73 63 20 2d 6e 20 22 | 53 74 75 66 66 49 74 20 |osc -n "|StuffIt |
|000005b0| 44 65 6c 75 78 65 aa 22 | 20 2d 72 20 2d 73 20 24 |Deluxe."| -r -s $|
|000005c0| 6f 75 74 53 63 72 69 70 | 74 0d 7d 0d 0d 0d 00 00 |outScrip|t.}.....|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000610| e1 f5 01 ef 0a 31 4c 67 | 5c 77 bf 90 d9 83 48 04 |.....1Lg|\w....H.|
|00000620| 40 72 19 6d ef 12 27 b4 | 72 19 44 27 bc b1 4c ee |@r.m..'.|r.D'..L.|
|00000630| 18 63 72 65 61 74 65 53 | 74 75 66 66 49 74 41 72 |.createS|tuffItAr|
|00000640| 63 68 69 76 65 2e 74 63 | 6c 66 02 00 02 00 54 45 |chive.tc|lf....TE|
|00000650| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 34 00 00 |..TEXTAL|FA...4..|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a9 a2 5c 6d 00 00 | 05 4e 00 00 01 7e 3b 03 |....\m..|.N...~;.|
|00000680| b7 53 ad 00 78 18 04 4a | ad f5 68 40 7b c8 a2 f1 |.S..x..J|..h@{...|
|00000690| 4c 60 a2 32 60 00 d8 74 | 19 0a a7 a4 70 73 16 7b |L`.2`..t|....ps.{|
|000006a0| 7e 4a a8 27 a8 90 21 20 | 5c c4 b2 2a 42 a5 99 92 |~J.'..! |\..*B...|
|000006b0| 80 a5 36 07 64 51 51 30 | 04 1a 74 8d 60 d4 2e 85 |..6.dQQ0|..t.`...|
|000006c0| 31 d9 f1 45 31 1d 20 2d | ef 12 d0 68 10 ae ff f4 |1..E1. -|...h....|
|000006d0| 72 19 40 d0 75 20 c2 41 | f0 48 70 22 20 5c 23 48 |r.@.u .A|.Hp" \#H|
|000006e0| 27 e6 91 bc 66 19 60 c8 | 13 6a af 20 06 11 a1 9a |'...f.`.|.j. ....|
|000006f0| 90 b0 4c df 10 e4 c7 ff | 74 70 b6 82 02 00 60 6e |..L.....|tp....`n|
|00000700| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 de |...H..Mo|naco....|
|00000710| 11 14 00 00 00 00 00 f5 | 10 74 00 03 2f 0a 03 b4 |........|.t../...|
|00000720| 00 e8 0c 5e 00 00 00 04 | 00 04 00 28 00 03 01 dd |...^....|...(....|
|00000730| 02 01 00 28 00 03 01 dd | 02 01 00 0a 60 3a 00 00 |...(....|....`:..|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000750| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 de 11 14 |...L...L|...2....|
|00000760| 0c 20 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |. .....2|..MPSR..|
|00000770| 00 0a 03 ed ff ff 00 00 | 00 00 00 e2 5f 18 00 00 |........|...._...|
+--------+-------------------------+-------------------------+--------+--------+